
//----------------------------------------
// 代码由GenlibVcl工具自动生成。
// Copyright © ying32. All Rights Reserved.
//
//----------------------------------------

function PrintDialog_Create(AOwner: TComponent): TPrintDialog; stdcall;
begin
  Result :=  TPrintDialog.Create(AOwner);
end;

procedure PrintDialog_Free(AObj: TPrintDialog); stdcall;
begin
  AObj.Free;
end;

function PrintDialog_Execute(AObj: TPrintDialog): LongBool; stdcall;
begin
  Result :=  AObj.Execute;
end;

function PrintDialog_FindComponent(AObj: TPrintDialog; AName: PChar): TComponent; stdcall;
begin
  Result :=  AObj.FindComponent(AName);
end;

function PrintDialog_GetNamePath(AObj: TPrintDialog): PChar; stdcall;
begin
  Result :=  PChar(AObj.GetNamePath);
end;

function PrintDialog_HasParent(AObj: TPrintDialog): LongBool; stdcall;
begin
  Result :=  AObj.HasParent;
end;

procedure PrintDialog_Assign(AObj: TPrintDialog; Source: TPersistent); stdcall;
begin
  AObj.Assign(Source);
end;

procedure PrintDialog_DisposeOf(AObj: TPrintDialog); stdcall;
begin
  AObj.DisposeOf;
end;

function PrintDialog_ClassType(AObj: TPrintDialog): TClass; stdcall;
begin
  Result :=  AObj.ClassType;
end;

function PrintDialog_ClassName(AObj: TPrintDialog): PChar; stdcall;
begin
  Result :=  PChar(AObj.ClassName);
end;

function PrintDialog_InstanceSize(AObj: TPrintDialog): Integer; stdcall;
begin
  Result :=  AObj.InstanceSize;
end;

function PrintDialog_InheritsFrom(AObj: TPrintDialog; AClass: TClass): LongBool; stdcall;
begin
  Result :=  AObj.InheritsFrom(AClass);
end;

function PrintDialog_Equals(AObj: TPrintDialog; Obj: TObject): LongBool; stdcall;
begin
  Result :=  AObj.Equals(Obj);
end;

function PrintDialog_GetHashCode(AObj: TPrintDialog): Integer; stdcall;
begin
  Result :=  AObj.GetHashCode;
end;

function PrintDialog_ToString(AObj: TPrintDialog): PChar; stdcall;
begin
  Result :=  PChar(AObj.ToString);
end;

function PrintDialog_GetCollate(AObj: TPrintDialog): LongBool; stdcall;
begin
  Result :=  AObj.Collate;
end;

procedure PrintDialog_SetCollate(AObj: TPrintDialog; AValue: LongBool); stdcall;
begin
  AObj.Collate := AValue;
end;

function PrintDialog_GetCopies(AObj: TPrintDialog): Integer; stdcall;
begin
  Result :=  AObj.Copies;
end;

procedure PrintDialog_SetCopies(AObj: TPrintDialog; AValue: Integer); stdcall;
begin
  AObj.Copies := AValue;
end;

function PrintDialog_GetFromPage(AObj: TPrintDialog): Integer; stdcall;
begin
  Result :=  AObj.FromPage;
end;

procedure PrintDialog_SetFromPage(AObj: TPrintDialog; AValue: Integer); stdcall;
begin
  AObj.FromPage := AValue;
end;

function PrintDialog_GetMinPage(AObj: TPrintDialog): Integer; stdcall;
begin
  Result :=  AObj.MinPage;
end;

procedure PrintDialog_SetMinPage(AObj: TPrintDialog; AValue: Integer); stdcall;
begin
  AObj.MinPage := AValue;
end;

function PrintDialog_GetMaxPage(AObj: TPrintDialog): Integer; stdcall;
begin
  Result :=  AObj.MaxPage;
end;

procedure PrintDialog_SetMaxPage(AObj: TPrintDialog; AValue: Integer); stdcall;
begin
  AObj.MaxPage := AValue;
end;

function PrintDialog_GetOptions(AObj: TPrintDialog): TPrintDialogOptions; stdcall;
begin
  Result :=  AObj.Options;
end;

procedure PrintDialog_SetOptions(AObj: TPrintDialog; AValue: TPrintDialogOptions); stdcall;
begin
  AObj.Options := AValue;
end;

function PrintDialog_GetPrintToFile(AObj: TPrintDialog): LongBool; stdcall;
begin
  Result :=  AObj.PrintToFile;
end;

procedure PrintDialog_SetPrintToFile(AObj: TPrintDialog; AValue: LongBool); stdcall;
begin
  AObj.PrintToFile := AValue;
end;

function PrintDialog_GetPrintRange(AObj: TPrintDialog): TPrintRange; stdcall;
begin
  Result :=  AObj.PrintRange;
end;

procedure PrintDialog_SetPrintRange(AObj: TPrintDialog; AValue: TPrintRange); stdcall;
begin
  AObj.PrintRange := AValue;
end;

function PrintDialog_GetToPage(AObj: TPrintDialog): Integer; stdcall;
begin
  Result :=  AObj.ToPage;
end;

procedure PrintDialog_SetToPage(AObj: TPrintDialog; AValue: Integer); stdcall;
begin
  AObj.ToPage := AValue;
end;

function PrintDialog_GetHandle(AObj: TPrintDialog): HWND; stdcall;
begin
  Result :=  AObj.Handle;
end;

procedure PrintDialog_SetOnClose(AObj: TPrintDialog; AEventId: NativeUInt); stdcall;
begin
  if AEventId = 0 then
  begin
    AObj.OnClose := nil;
    TEventClass.Remove(AObj, @TEventClass.OnClose);
    Exit;
  end;
  AObj.OnClose := TEventClass.OnClose;
  TEventClass.Add(AObj, @TEventClass.OnClose, AEventId);
end;

procedure PrintDialog_SetOnShow(AObj: TPrintDialog; AEventId: NativeUInt); stdcall;
begin
  if AEventId = 0 then
  begin
    AObj.OnShow := nil;
    TEventClass.Remove(AObj, @TEventClass.OnShow);
    Exit;
  end;
  AObj.OnShow := TEventClass.OnShow;
  TEventClass.Add(AObj, @TEventClass.OnShow, AEventId);
end;

function PrintDialog_GetComponentCount(AObj: TPrintDialog): Integer; stdcall;
begin
  Result :=  AObj.ComponentCount;
end;

function PrintDialog_GetComponentIndex(AObj: TPrintDialog): Integer; stdcall;
begin
  Result :=  AObj.ComponentIndex;
end;

procedure PrintDialog_SetComponentIndex(AObj: TPrintDialog; AValue: Integer); stdcall;
begin
  AObj.ComponentIndex := AValue;
end;

function PrintDialog_GetOwner(AObj: TPrintDialog): TComponent; stdcall;
begin
  Result :=  AObj.Owner;
end;

function PrintDialog_GetName(AObj: TPrintDialog): PChar; stdcall;
begin
  Result :=  PChar(AObj.Name);
end;

procedure PrintDialog_SetName(AObj: TPrintDialog; AValue: PChar); stdcall;
begin
  AObj.Name := AValue;
end;

function PrintDialog_GetTag(AObj: TPrintDialog): NativeInt; stdcall;
begin
  Result :=  AObj.Tag;
end;

procedure PrintDialog_SetTag(AObj: TPrintDialog; AValue: NativeInt); stdcall;
begin
  AObj.Tag := AValue;
end;

function PrintDialog_GetComponents(AObj: TPrintDialog; AIndex: Integer): TComponent; stdcall;
begin
  Result :=  AObj.Components[AIndex];
end;

function PrintDialog_StaticClassType: TClass; stdcall;
begin
  Result := TPrintDialog;
end;

exports
  PrintDialog_Create,
  PrintDialog_Free,
  PrintDialog_Execute,
  PrintDialog_FindComponent,
  PrintDialog_GetNamePath,
  PrintDialog_HasParent,
  PrintDialog_Assign,
  PrintDialog_DisposeOf,
  PrintDialog_ClassType,
  PrintDialog_ClassName,
  PrintDialog_InstanceSize,
  PrintDialog_InheritsFrom,
  PrintDialog_Equals,
  PrintDialog_GetHashCode,
  PrintDialog_ToString,
  PrintDialog_GetCollate,
  PrintDialog_SetCollate,
  PrintDialog_GetCopies,
  PrintDialog_SetCopies,
  PrintDialog_GetFromPage,
  PrintDialog_SetFromPage,
  PrintDialog_GetMinPage,
  PrintDialog_SetMinPage,
  PrintDialog_GetMaxPage,
  PrintDialog_SetMaxPage,
  PrintDialog_GetOptions,
  PrintDialog_SetOptions,
  PrintDialog_GetPrintToFile,
  PrintDialog_SetPrintToFile,
  PrintDialog_GetPrintRange,
  PrintDialog_SetPrintRange,
  PrintDialog_GetToPage,
  PrintDialog_SetToPage,
  PrintDialog_GetHandle,
  PrintDialog_SetOnClose,
  PrintDialog_SetOnShow,
  PrintDialog_GetComponentCount,
  PrintDialog_GetComponentIndex,
  PrintDialog_SetComponentIndex,
  PrintDialog_GetOwner,
  PrintDialog_GetName,
  PrintDialog_SetName,
  PrintDialog_GetTag,
  PrintDialog_SetTag,
  PrintDialog_GetComponents,
  PrintDialog_StaticClassType;

